home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1996 June / netPOWER_06_Jun_1996.iso / mac / howto / palace / Palace 1.1.0 Install / Palace 1.1.0 Install / Mansion Script < prev    next >
Text File  |  1995-10-05  |  26KB  |  1,402 lines
  1. ; Mansion Layout
  2. ;
  3. ENTRANCE 86
  4.  
  5.  
  6. ROOM
  7.     ID 86
  8.     NOPAINTING
  9.     NAME "Palace Gate"
  10.     PICT "PGATE.GIF"
  11.     ARTIST "Damon Williams"
  12.  
  13.  
  14.     DOOR
  15.         ID 1
  16.         DEST 100
  17.         OUTLINE 101,322  103,209  447,217  437,325
  18.         ENDDOOR
  19.     DOOR
  20.         ID 2
  21.         DEST 200
  22.         OUTLINE 180,134  288,99  282,208  177,206
  23.         ENDDOOR
  24.     DOOR
  25.         ID 3
  26.         DEST 103
  27.         OUTLINE 471,88  512,88  512,309  471,307
  28.         ENDDOOR
  29.     DOOR
  30.         ID 5
  31.         DEST 206
  32.         OUTLINE 192,106  269,81  273,101  181,131
  33.         ENDDOOR
  34.     ENDROOM
  35.  
  36.  
  37. ROOM
  38.     ID 100
  39.     NAME "Harry's Bar"
  40.     PICT "Bar.GIF"
  41.     ARTIST "Damon Williams"
  42.     PICTURE ID 100 NAME "BrNeon1.GIF"  ENDPICTURE
  43.     PICTURE ID 101 NAME "BrNeon2.GIF"  ENDPICTURE
  44.  
  45.  
  46.     DOOR
  47.         ID 1
  48.         DEST 101
  49.         OUTLINE 411,178  420,32  489,31  479,100  454,102  444,190
  50.         ENDDOOR
  51.     SPOT
  52.         ID 2
  53.         DONTMOVEHERE
  54.         OUTLINE 313,1  313,37  333,34  335,0
  55.         SCRIPT
  56. ON SELECT { 
  57.     ")Ow" SAY  
  58. }
  59. ON OUTCHAT { 
  60.    OCHAT GLOBAL 
  61.    CHATSTR OCHAT = 
  62.    90 ME SETALARM  
  63.  {
  64.    "$1f***$2" GREPSUB CHATSTR =
  65.  } { CHATSTR "^(.*)fuck(.*)$" GREPSTR } WHILE
  66.  {
  67.    "$1s***$2" GREPSUB CHATSTR =
  68.  } { CHATSTR "^(.*)shit(.*)$" GREPSTR } WHILE
  69. }
  70. ON ALARM { 
  71.     OCHAT GLOBAL 
  72.     { "@320,38 Shut up, " USERNAME + "!!" + ROOMMSG } 
  73.                             OCHAT "harry" SUBSTR IF 
  74.     { "@320,38 Yes I like$1, " GREPSUB USERNAME + "." + ROOMMSG } 
  75.                             OCHAT "do you like(.*)?" GREPSTR IF  
  76. }
  77. }
  78.         ENDSCRIPT
  79.         ENDSPOT
  80.     DOOR
  81.         ID 3
  82.         DEST 150
  83.         OUTLINE 123,25  201,32  208,98  126,99
  84.         ENDDOOR
  85.     SPOT
  86.         ID 4
  87.         OUTLINE 416,0  416,28  478,28  478,0
  88.         PICTS 0,0,0 100,1,0 101,1,0 ENDPICTS
  89.         SCRIPT
  90. ON ENTER 
  91. { 
  92.    180 ME SETALARM  
  93. }
  94.  
  95. ON ALARM 
  96. { { 0 ME SETSPOTSTATELOCAL }
  97.   { ME GETSPOTSTATE 1 + ME SETSPOTSTATELOCAL }
  98.   ME GETSPOTSTATE 1 > IFELSE
  99.   180 ME SETALARM 
  100. }
  101.         ENDSCRIPT
  102.         ENDSPOT
  103.     DOOR
  104.         ID 5
  105.         DEST 86
  106.         OUTLINE 9,32  63,43  81,110  14,99
  107.         ENDDOOR
  108.     ENDROOM
  109.  
  110.  
  111. ROOM
  112.     ID 101
  113.     NAME "Red Room"
  114.     PICT "RedRoom.GIF"
  115.     ARTIST "Damon Williams"
  116.  
  117.  
  118.     DOOR
  119.         ID 1
  120.         DEST 106
  121.         OUTLINE 512,219  454,279  400,384  512,384
  122.         ENDDOOR
  123.     DOOR
  124.         ID 2
  125.         DEST 100
  126.         OUTLINE 333,168  333,89  373,89  370,169
  127.         ENDDOOR
  128.     DOOR
  129.         ID 3
  130.         DEST 105
  131.         OUTLINE 76,85  137,84  140,189  85,200
  132.         ENDDOOR
  133.     DOOR
  134.         ID 4
  135.         DEST 150
  136.         OUTLINE 428,74  512,76  512,139  423,135
  137.         ENDDOOR
  138.     SPOT
  139.         ID 5
  140.         OUTLINE 38,218  143,216  155,249  28,253
  141.         SCRIPT
  142. ON SELECT { "Cards" LAUNCHAPP  }
  143.         ENDSCRIPT
  144.         ENDSPOT
  145.     ENDROOM
  146.  
  147.  
  148. ROOM
  149.     ID 102
  150.     NAME "Valhalla"
  151.     PICT "Valhalla.GIF"
  152.     ARTIST "Damon Williams"
  153.  
  154.  
  155.  
  156.     DOOR
  157.         ID 1
  158.         DEST 106
  159.         OUTLINE 1,127  61,129  53,237  48,299  1,376
  160.         ENDDOOR
  161.     DOOR
  162.         ID 2
  163.         DEST 106
  164.         OUTLINE 512,135  451,135  452,242  458,302  511,343
  165.         ENDDOOR
  166.     SPOT
  167.         ID 3
  168.         OUTLINE 434,16  465,11  477,42  430,31
  169.         SCRIPT
  170. ON SELECT {
  171. "palace://204.212.59.12" NETGOTO
  172. }
  173.         ENDSCRIPT
  174.         ENDSPOT
  175.     ENDROOM
  176.  
  177.  
  178. ROOM
  179.     ID 103
  180.     NAME "The Moor"
  181.     PICT "Moor.GIF"
  182.     ARTIST "Jim Bumgardner2"
  183.  
  184.     DOOR
  185.         ID 1
  186.         DEST 666
  187.         OUTLINE 0,320  0,383  511,383  511,320
  188.         ENDDOOR
  189.     DOOR
  190.         ID 2
  191.         DEST 150
  192.         OUTLINE 512,76  511,300  450,300  449,76
  193.         ENDDOOR
  194.     DOOR
  195.         ID 3
  196.         DEST 86
  197.         OUTLINE 0,115  64,114  63,300  0,300
  198.         ENDDOOR
  199.     DOOR
  200.         ID 4
  201.         NAME "Test"
  202.         DEST 777
  203.         OUTLINE 0,0  512,0  512,53  0,53
  204.         ENDDOOR
  205.     SPOT
  206.         ID 5
  207.         OUTLINE 3,56  91,56  91,112  3,112
  208.         SCRIPT
  209.         ON OUTCHAT { 
  210.            { "$1w$2" GREPSUB CHATSTR = } 
  211.            { CHATSTR "(.*)[lr]([aeiouy][^ .].*)" GREPSTR } WHILE  
  212.         }
  213.         ENDSCRIPT
  214.         ENDSPOT
  215.     ENDROOM
  216.  
  217.  
  218. ROOM
  219.     ID 104
  220.     NAME "Armory"
  221.     PICT "Armory.GIF"
  222.     ARTIST "Damon Williams"
  223.  
  224.  
  225.     DOOR
  226.         ID 1
  227.         DEST 106
  228.         OUTLINE 232,254  232,125  286,125  286,254
  229.         ENDDOOR
  230.     DOOR
  231.         ID 2
  232.         DEST 200
  233.         OUTLINE 411,46  476,79  510,119  511,384  437,382
  234.         ENDDOOR
  235.     SPOT
  236.         ID 3
  237.         DONTMOVEHERE
  238.         OUTLINE 344,117  377,119  379,164  342,164
  239.         SCRIPT
  240. ON SELECT { 
  241.       "@349,148 " [ "Hello" "I have no liver!"
  242.                  "Dress me!" ] 3 RANDOM GET +
  243.     ROOMMSG    
  244. }
  245.         ENDSCRIPT
  246.         ENDSPOT
  247.     DOOR
  248.         ID 4
  249.         DEST 151
  250.         OUTLINE 5,20  121,69  128,168  6,155
  251.         ENDDOOR
  252.     DOOR
  253.         ID 5
  254.         DONTMOVEHERE
  255.         OUTLINE 332,164  400,161  381,331  346,326
  256.         SCRIPT
  257. ON SELECT {
  258.  [ ")teehee" ")guffaw" ] 2 RANDOM GET ROOMMSG
  259. }
  260.         ENDSCRIPT
  261.         ENDDOOR
  262.     ENDROOM
  263.  
  264.  
  265. ROOM
  266.     ID 150
  267.     NOPAINTING
  268.     NAME "The Slabs"
  269.     PICT "Slabs.GIF"
  270.     ARTIST "Jim Bumgardner"
  271.  
  272.  
  273.     DOOR
  274.         ID 1
  275.         DEST 103
  276.         OUTLINE 0,0  0,383  50,383  50,0
  277.         ENDDOOR
  278.     DOOR
  279.         ID 2
  280.         DEST 160
  281.         OUTLINE 53,0  512,0  512,63  52,68
  282.         ENDDOOR
  283.     DOOR
  284.         ID 3
  285.         DEST 100
  286.         OUTLINE 223,120  269,119  268,223  221,219
  287.         ENDDOOR
  288.     DOOR
  289.         ID 4
  290.         DEST 151
  291.         OUTLINE 462,67  511,66  512,384  464,383
  292.         ENDDOOR
  293.     DOOR
  294.         ID 5
  295.         NAME "To nowhere"
  296.         SHOWNAME
  297.         OUTLINE 134,110  185,118  180,222  127,220
  298.         SCRIPT
  299. ;ON SELECT { "palace:192.187.228.30" NETGOTO  }
  300. ;ON SELECT { "palace:204.212.51.219" NETGOTO  }
  301.         ENDSCRIPT
  302.         ENDDOOR
  303.     ENDROOM
  304.  
  305.  
  306. ROOM
  307.     ID 200
  308.     NAME "Hallway 200"
  309.     PICT "Gorman.GIF"
  310.     ARTIST "Damon Williams"
  311.     PICTURE ID 101 NAME "HALDOR1.GIF"  ENDPICTURE
  312.     PICTURE ID 102 NAME "HALDOR2.GIF"  ENDPICTURE
  313.     PICTURE ID 103 NAME "HALDOR3.GIF"  ENDPICTURE
  314.     PICTURE ID 104 NAME "HALDOR4.GIF"  ENDPICTURE
  315.     PICTURE ID 105 NAME "HALDOR5.GIF"  ENDPICTURE
  316.  
  317.  
  318.     DOOR
  319.         ID 1
  320.         DEST 104
  321.         OUTLINE 316,320  283,384  503,384  441,357
  322.         ENDDOOR
  323.     DOOR
  324.         ID 2
  325.         DEST 207
  326.         OUTLINE 1,123  2,365  43,339  13,128
  327.         ENDDOOR
  328.     DOOR
  329.         SHUTABLE
  330.         ID 101
  331.         DEST 201
  332.         OUTLINE 125,227  107,106  146,103  164,106  171,217
  333.         PICTS 0,0,0 104,-1,17 ENDPICTS
  334.         ENDSPOT
  335.     DOOR
  336.         SHUTABLE
  337.         ID 102
  338.         DEST 202
  339.         OUTLINE 199,94  206,215  246,228  252,103
  340.         PICTS 0,0,0 103,0,5 ENDPICTS
  341.         ENDSPOT
  342.     DOOR
  343.         SHUTABLE
  344.         ID 103
  345.         DEST 203
  346.         OUTLINE 265,236  264,106  322,110  312,250
  347.         PICTS 0,0,0 102,0,11 ENDPICTS
  348.         ENDSPOT
  349.     DOOR
  350.         SHUTABLE
  351.         ID 104
  352.         DEST 204
  353.         OUTLINE 384,266  397,120  478,125  453,294
  354.         PICTS 0,0,0 101,4,9 ENDPICTS
  355.         ENDSPOT
  356.     DOOR
  357.         ID 7
  358.         DEST 104
  359.         OUTLINE 195,285  277,332  245,382  3,375
  360.         ENDDOOR
  361.     DOOR
  362.         SHUTABLE
  363.         ID 8
  364.         DEST 205
  365.         OUTLINE 13,118  79,111  97,236  36,253
  366.         PICTS 0,0,0 105,-4,1 ENDPICTS
  367.         ENDSPOT
  368.     DOOR
  369.         ID 9
  370.         DEST 206
  371.         OUTLINE 0,0  512,0  512,23  0,23
  372.         ENDDOOR
  373.     ENDROOM
  374.  
  375.  
  376. ROOM
  377.     ID 201
  378.     PRIVATE
  379.     NAME "Onyx Room"
  380.     PICT "OnyxRoom.GIF"
  381.     ARTIST "Elaine Alderette"
  382.     PICTURE ID 100 NAME "OnyxDoor.GIF"  ENDPICTURE
  383.     DOOR
  384.         LOCKABLE
  385.         ID 100
  386.         DEST 200
  387.         OUTLINE 40,141  36,268  94,260  96,146
  388.         PICTS 100,20,51 0,0,0 ENDPICTS
  389.         ENDSPOT
  390.     BOLT
  391.         ID 2
  392.         DEST 100
  393.         OUTLINE 46,198  46,214  59,216  61,197
  394.         ENDBOLT
  395.     BOLT
  396.         ID 3
  397.         DEST 100
  398.         OUTLINE 98,148  131,148  131,233  97,239
  399.         ENDBOLT
  400.     SPOT
  401.         ID 4
  402.         OUTLINE 161,140  195,145  195,175  160,172
  403.         SCRIPT
  404. ON SELECT
  405. {
  406.      lev GLOBAL
  407.     { 0 lev = }
  408.     { 50 lev = } lev IFELSE
  409.      lev DIMROOM
  410. }
  411.         ENDSCRIPT
  412.         ENDSPOT
  413.     ENDROOM
  414.  
  415.  
  416. ROOM
  417.     ID 202
  418.     PRIVATE
  419.     NAME "Guest Room 202"
  420.     PICT "Boudoir.GIF"
  421.     ARTIST "Damon Williams"
  422.     PICTURE ID 100 NAME "BouDoorC.GIF"  ENDPICTURE
  423.     PICTURE ID 101 NAME "BouDoorO.GIF"  ENDPICTURE
  424.     DOOR
  425.         LOCKABLE
  426.         ID 100
  427.         DEST 200
  428.         OUTLINE 391,88  390,221  432,232  434,89
  429.         PICTS 101,-26,3 100,3,3 ENDPICTS
  430.         ENDSPOT
  431.     BOLT
  432.         ID 2
  433.         DEST 100
  434.         OUTLINE 316,144  316,184  346,184  346,144
  435.         ENDBOLT
  436.     BOLT
  437.         ID 3
  438.         DEST 100
  439.         OUTLINE 419,148  455,148  455,186  419,186
  440.         ENDBOLT
  441.     SPOT
  442.         ID 4
  443.         OUTLINE 77,185  244,167  311,197  157,242
  444.         SCRIPT
  445. ON SELECT {
  446.  {  64 400 RANDOM + 300 40 RANDOM + DROPPROP }
  447.  { TOPPROP } WHILE
  448. }
  449.         ENDSCRIPT
  450.         ENDSPOT
  451.     SPOT
  452.         ID 5
  453.         OUTLINE 22,128  51,130  51,207  27,202
  454.         SCRIPT
  455. ON SELECT
  456. {
  457.      lev GLOBAL
  458.     { 0 lev = }
  459.     { 50 lev = } lev IFELSE
  460.      lev DIMROOM
  461. }
  462.         ENDSCRIPT
  463.         ENDSPOT
  464.     ENDROOM
  465.  
  466.  
  467. ROOM
  468.     ID 203
  469.     PRIVATE
  470.     NAME "Guest Room 203"
  471.     PICT "Boudoir.GIF"
  472.     ARTIST "Damon Williams"
  473.     PICTURE ID 100 NAME "BouDoorC.GIF"  ENDPICTURE
  474.     PICTURE ID 101 NAME "BouDoorO.GIF"  ENDPICTURE
  475.     DOOR
  476.         LOCKABLE
  477.         ID 100
  478.         DEST 200
  479.         OUTLINE 392,87  391,220  433,231  435,88
  480.         PICTS 101,-29,2 100,0,2 ENDPICTS
  481.         ENDSPOT
  482.     BOLT
  483.         ID 2
  484.         DEST 100
  485.         OUTLINE 314,141  314,181  344,181  344,141
  486.         ENDBOLT
  487.     BOLT
  488.         ID 3
  489.         DEST 100
  490.         OUTLINE 419,148  455,148  455,186  419,186
  491.         ENDBOLT
  492.     DOOR
  493.         ID 4
  494.         OUTLINE 80,178  240,167  361,206  162,240
  495.         SCRIPT
  496. ON SELECT {
  497.  {  64 400 RANDOM + 300 40 RANDOM + DROPPROP }
  498.  { TOPPROP } WHILE
  499. }
  500.         ENDSCRIPT
  501.         ENDDOOR
  502.     SPOT
  503.         ID 5
  504.         OUTLINE 26,133  55,132  51,208  35,206
  505.         SCRIPT
  506. ON SELECT
  507. {
  508.      lev GLOBAL
  509.     { 0 lev = }
  510.     { 50 lev = } lev IFELSE
  511.      lev DIMROOM
  512. }
  513.         ENDSCRIPT
  514.         ENDSPOT
  515.     ENDROOM
  516.  
  517.  
  518. ROOM
  519.     ID 204
  520.     PRIVATE
  521.     NAME "The Study"
  522.     PICT "Study.GIF"
  523.     ARTIST "Damon Williams"
  524.     PICTURE ID 100 NAME "studyopn.GIF"  ENDPICTURE
  525.     DOOR
  526.         LOCKABLE
  527.         ID 100
  528.         DEST 200
  529.         OUTLINE 283,99  292,232  338,246  338,100
  530.         PICTS 100,54,-21 0,0,0 ENDPICTS
  531.         ENDSPOT
  532.     DOOR
  533.         ID 3
  534.         DEST 666
  535.         OUTLINE 66,193  114,193  115,214  67,219
  536.         ENDDOOR
  537.     SPOT
  538.         ID 4
  539.         OUTLINE 45,44  106,51  101,99  45,97
  540.         SCRIPT
  541. ON OUTCHAT 
  542. { OCHAT GLOBAL CHATSTR OCHAT = 90 ME SETALARM  
  543. }
  544.  
  545. ON ALARM { 
  546.      OCHAT GLOBAL 
  547.     { "@87,75 Yes Master!  " ROOMMSG 100 UNLOCK } OCHAT "open sesame" SUBSTR IF 
  548.     { "@87,75 Yes Master!  " ROOMMSG 100 LOCK } OCHAT "close sesame" SUBSTR IF  
  549. }
  550.         ENDSCRIPT
  551.         ENDSPOT
  552.     ENDROOM
  553.  
  554.  
  555. ROOM
  556.     ID 250
  557.     NAME "The Spa"
  558.     PICT "SPA.GIF"
  559.     ARTIST "Damon Williams"
  560.  
  561.     DOOR
  562.         ID 1
  563.         DEST 106
  564.         OUTLINE 511,0  510,231  453,219  450,0
  565.         ENDDOOR
  566.     DOOR
  567.         ID 2
  568.         DEST 700
  569.         OUTLINE 0,351  512,351  512,384  0,384
  570.         ENDDOOR
  571.     DOOR
  572.         ID 3
  573.         DEST 106
  574.         OUTLINE 0,0  42,0  55,235  0,243
  575.         ENDDOOR
  576.     SPOT
  577.         ID 4
  578.         OUTLINE 91,11  175,19  180,44  92,33
  579.         SCRIPT
  580. ON OUTCHAT {
  581.  {
  582.    "$1f***$2" GREPSUB CHATSTR =
  583.  } CHATSTR "^(.*)fuck(.*)$" GREPSTR IF
  584.  {
  585.    "$1s***$2" GREPSUB CHATSTR =
  586.  } CHATSTR "^(.*)shit(.*)$" GREPSTR IF
  587. }
  588.         ENDSCRIPT
  589.         ENDSPOT
  590.     ENDROOM
  591.  
  592.  
  593. ROOM
  594.     ID 160
  595.     NAME "Cloud Room"
  596.     PICT "Clouds.GIF"
  597.     ARTIST "Jim Bumgardner"
  598.  
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605.  
  606.  
  607.     DOOR
  608.         ID 1
  609.         DEST 150
  610.         OUTLINE 0,258  512,256  512,383  0,384
  611.         ENDDOOR
  612.     DOOR
  613.         ID 3
  614.         DEST 800
  615.         OUTLINE 0,0  512,0  512,66  0,66
  616.         ENDDOOR
  617.     SPOT
  618.         ID 3
  619.         OUTLINE 38,157  98,157  98,213  38,213
  620.         ENDSPOT
  621.     ENDROOM
  622.  
  623.  
  624. ROOM
  625.     ID 105
  626.     NAME "Chess Room"
  627.     PICT "ChessDen.GIF"
  628.     ARTIST "Damon Williams"
  629.     DOOR
  630.         ID 1
  631.         DEST 101
  632.         OUTLINE 271,123  320,123  320,227  271,227
  633.         ENDDOOR
  634.     DOOR
  635.         SHUTABLE
  636.         ID 2
  637.         DEST 108
  638.         OUTLINE 231,270  295,263  326,297  251,309
  639.         ENDSPOT
  640.     DOOR
  641.         SHUTABLE
  642.         ID 3
  643.         DEST 109
  644.         OUTLINE 276,242  325,237  327,249  292,258
  645.         ENDSPOT
  646.     DOOR
  647.         ID 4
  648.         DEST 666
  649.         OUTLINE 30,218  92,209  98,266  33,288
  650.         ENDDOOR
  651.     ENDROOM
  652.  
  653.  
  654. ROOM
  655.     ID 666
  656.     NAME "The Pit"
  657.     PICT "Hell.GIF"
  658.  
  659.  
  660.     DOOR
  661.         ID 1
  662.         DEST 105
  663.         OUTLINE 0,38  44,138  55,242  0,350
  664.         ENDDOOR
  665.     DOOR
  666.         ID 2
  667.         DEST 204
  668.         OUTLINE 468,123  512,56  512,318  472,253
  669.         ENDDOOR
  670.     SPOT
  671.         ID 3
  672.         OUTLINE 255,340  284,342  289,368  255,369
  673.         SCRIPT
  674.         ON ENTER { 
  675.             CLEARPROPS 
  676.             { "Devil Horns" } { "Steer Horns" } 4 RANDOM IFELSE DONPROP 
  677.             { "cig" } { "pitchfork" } 3 RANDOM IFELSE DONPROP 
  678.             0 SETCOLOR 
  679.             1 SETFACE  
  680.         }
  681.         ENDSCRIPT
  682.         ENDSPOT
  683.     DOOR
  684.         ID 4
  685.         DEST 103
  686.         OUTLINE 0,0  512,0  512,46  0,49
  687.         ENDDOOR
  688.     DOOR
  689.         ID 5
  690.         OUTLINE 377,82  451,86  445,137  389,127
  691.         ENDDOOR
  692.     ENDROOM
  693.  
  694.  
  695. ROOM
  696.     ID 700
  697.     NAME "The Beach"
  698.     PICT "Beach.GIF"
  699.     ARTIST "Jim Bumgardner"
  700.  
  701.     DOOR
  702.         ID 1
  703.         DEST 250
  704.         OUTLINE 0,339  512,342  512,384  0,384
  705.         ENDDOOR
  706.     SPOT
  707.         ID 2
  708.         OUTLINE 38,32  149,31  138,76  33,85
  709.         SCRIPT
  710. ON OUTCHAT {
  711.   {
  712.   {  
  713.     [ "Awesome!"
  714.       "Cool!"
  715.       "Gnarly!"
  716.       "Bitchin!"
  717.       "Radical!"
  718.       "Totally!"
  719.       "Rad!"
  720.       "Tubular!"
  721.     ] 8 RANDOM GET CHATSTR =
  722.   }
  723.   {
  724.   "like, " CHATSTR +
  725.   [ ", dude!" ", bro!" ", guy!"] 3 RANDOM GET +
  726.   CHATSTR =
  727.   } 8 RANDOM 0 == IFELSE
  728.   } CHATSTR " " SUBSTR CHATSTR "^[:!^@]" GREPSTR NOT AND IF
  729. }
  730.         ENDSCRIPT
  731.         ENDSPOT
  732.     ENDROOM
  733.  
  734.  
  735. ROOM
  736.     ID 800
  737.     NAME "Nrutas"
  738.     PICT "Nrutas.GIF"
  739.  
  740.  
  741.  
  742.     DOOR
  743.         ID 1
  744.         DEST 160
  745.         OUTLINE 0,310  511,309  511,384  0,384
  746.         ENDDOOR
  747.     ENDROOM
  748.  
  749.  
  750. ROOM
  751.     ID 106
  752.     NAME "Game Room"
  753.     PICT "GameRoom.GIF"
  754.     ARTIST "Damon Williams"
  755.     DOOR
  756.         ID 1
  757.         DEST 101
  758.         OUTLINE 0,0  83,0  86,383  0,384
  759.         ENDDOOR
  760.     DOOR
  761.         ID 2
  762.         DEST 102
  763.         OUTLINE 153,93  206,94  207,188  162,193
  764.         ENDDOOR
  765.     DOOR
  766.         ID 3
  767.         DEST 104
  768.         OUTLINE 390,96  446,95  438,251  383,250
  769.         ENDDOOR
  770.     DOOR
  771.         ID 4
  772.         DEST 250
  773.         OUTLINE 264,86  341,85  339,157  262,145
  774.         ENDDOOR
  775.     DOOR
  776.         ID 5
  777.         DEST 107
  778.         OUTLINE 163,268  278,249  334,270  207,299
  779.         SCRIPT
  780. ON SELECT {
  781.  "Backgammon temporarily unavailable" ROOMMSG
  782. }
  783.         ENDSCRIPT
  784.         ENDDOOR
  785.     ENDROOM
  786.  
  787.  
  788. ROOM
  789.     ID 777
  790.     NAME "Heaven's Gate"
  791.     PICT "Heaven.GIF"
  792.     ARTIST "Elaine Alderette"
  793.  
  794.  
  795.  
  796.  
  797.  
  798.     DOOR
  799.         ID 1
  800.         DEST 103
  801.         OUTLINE 0,309  512,313  512,384  0,384
  802.         ENDDOOR
  803.     SPOT
  804.         ID 2
  805.         OUTLINE 35,35  96,35  94,76  34,77
  806.         SCRIPT
  807. ON ENTER { 
  808.   "FazeIn" SOUND
  809.   CLEARPROPS 
  810.   "Halo" DONPROP 
  811.   8 SETCOLOR  
  812. }
  813.         ENDSCRIPT
  814.         ENDSPOT
  815.     SPOT
  816.         ID 3
  817.         OUTLINE 387,24  444,21  437,57  390,51
  818.         SCRIPT
  819.         ON SELECT { "palace:192.187.228.30" NETGOTO  }
  820.         ENDSCRIPT
  821.         ENDSPOT
  822.     ENDROOM
  823.  
  824.  
  825. ROOM
  826.     ID 205
  827.     PRIVATE
  828.     NAME "Honeymoon Suite"
  829.     PICT "Vegas.GIF"
  830.     ARTIST "Elaine Alderette"
  831.     PICTURE ID 100 NAME "VegasDor.GIF"  ENDPICTURE
  832.     PICTURE ID 101 NAME "VegasBed.GIF"  ENDPICTURE
  833.     PICTURE ID 200 NAME "VegasTV1.GIF"  ENDPICTURE
  834.  
  835.  
  836.  
  837.     DOOR
  838.         LOCKABLE
  839.         ID 100
  840.         DEST 200
  841.         OUTLINE 334,152  389,146  387,264  333,252
  842.         PICTS 0,0,0 100,-33,2 ENDPICTS
  843.         ENDSPOT
  844.     BOLT
  845.         ID 10
  846.         DONTMOVEHERE
  847.         DEST 100
  848.         OUTLINE 281,190  299,190  299,215  281,215
  849.         ENDBOLT
  850.     BOLT
  851.         ID 20
  852.         DONTMOVEHERE
  853.         DEST 100
  854.         OUTLINE 374,193  387,191  389,212  374,210
  855.         ENDBOLT
  856.     SPOT
  857.         ID 200
  858.         DONTMOVEHERE
  859.         OUTLINE 136,40  134,177  253,172  252,89
  860.         PICTS 101,36,39 0,0,0 ENDPICTS
  861.         SCRIPT
  862.         ON ENTER 
  863.         { 120 ME SETALARM  }
  864.         ON ALARM 
  865.         { ME GETSPOTSTATE NOT ME SETSPOTSTATELOCAL 
  866.           120 ME SETALARM  }
  867.         ENDSCRIPT
  868.         ENDSPOT
  869.     SPOT
  870.         ID 666
  871.         DONTMOVEHERE
  872.         DEST 106
  873.         OUTLINE 419,125  454,100  460,167  427,183
  874.         PICTS 0,0,0 200,-1,4 ENDPICTS
  875.         SCRIPT
  876.         ON ALARM { 1 ME SETSPOTSTATELOCAL 0 ME SETSPOTSTATELOCAL 600 RANDOM ME SETALARM  }
  877.         ON ENTER { 600 RANDOM ME SETALARM  }
  878.         ENDSCRIPT
  879.         ENDSPOT
  880.     SPOT
  881.         ID 6
  882.         OUTLINE 185,232  294,218  329,238  259,244
  883.         SCRIPT
  884. ON ALARM
  885. { 
  886.    VTIME GLOBAL 
  887.    VSTATE GLOBAL 
  888.    { 
  889.       { 0 -1 MOVE } 6 INSPOT IF 
  890.       2 6 SETALARM 
  891.       1 VSTATE = 
  892.     } 
  893.     { 
  894.         { 0 1 MOVE } 6 INSPOT IF 
  895.          VTIME 1 + VTIME = 
  896.         { 2 6 SETALARM }{ 0 VTIME = } 
  897.              VTIME 20 < IFELSE
  898.          0 VSTATE = 
  899.      } VSTATE 0 == IFELSE
  900.  }
  901.         ENDSCRIPT
  902.         ENDSPOT
  903.     SPOT
  904.         ID 7
  905.         DONTMOVEHERE
  906.         OUTLINE 115,215  151,216  158,234  121,238
  907.         SCRIPT
  908. ON SELECT { 0 6 SETALARM }
  909. ON OUTCHAT {
  910. {
  911.  CHATSTR ", " +
  912.   [ "baby" "sugarlumps" "dollface"
  913.    "honey" "honeyhead" "pumpkin" "darling"
  914.    "sugarlips" "sweetie" "sweetiepie"
  915.    "sweetums" "sugar" ] 
  916.   12 RANDOM GET + "!" +
  917.   CHATSTR =
  918. } CHATSTR " " SUBSTR CHATSTR "^[:!@^)]" GREPSTR NOT
  919.  AND IF
  920. }
  921.         ENDSCRIPT
  922.         ENDSPOT
  923.     ENDROOM
  924.  
  925.  
  926. ROOM
  927.     ID 108
  928.     PRIVATE
  929.     NOPAINTING
  930.     NOCYBORGS
  931.     NAME "Chess Table"
  932.     PICT "ChessBrd.GIF"
  933.     ARTIST "Damon Williams"
  934.     PICTURE ID 100 NAME "CHESSHLP.GIF"  ENDPICTURE
  935.     PICTURE ID 200 NAME "CHESSLCK.GIF"  ENDPICTURE
  936.     PICTURE ID 201 NAME "CHESSUNL.GIF"  ENDPICTURE
  937.  
  938.  
  939.     DOOR
  940.         ID 1
  941.         DEST 105
  942.         OUTLINE 0,369  512,369  512,384  0,384
  943.         ENDDOOR
  944.     DOOR
  945.         ID 2
  946.         DEST 105
  947.         OUTLINE 0,0  512,0  512,20  0,22
  948.         ENDDOOR
  949.     DOOR
  950.         LOCKABLE
  951.         ID 3
  952.         DEST 105
  953.         OUTLINE 0,0  32,0  31,21  0,21
  954.         ENDSPOT
  955.     SPOT
  956.         ID 10
  957.         DONTMOVEHERE
  958.         DEST 3
  959.         OUTLINE 18,31  50,31  50,63  18,63
  960.         PICTS 201,0,0 200,0,0 ENDPICTS
  961.         SCRIPT
  962.         ON SELECT 
  963.         { 
  964.             { 0 10 SETSPOTSTATE DEST UNLOCK } 
  965.             { 1 10 SETSPOTSTATE DEST LOCK } DEST ISLOCKED IFELSE  
  966.         }
  967.         ON ENTER 
  968.         { 
  969.             DEST ISLOCKED 10 SETSPOTSTATE  
  970.         }
  971.         ENDSCRIPT
  972.         ENDSPOT
  973.     SPOT
  974.         ID 20
  975.         DONTMOVEHERE
  976.         OUTLINE 16,324  48,324  48,356  16,356
  977.         PICTS 100,0,0 ENDPICTS
  978.         SCRIPT
  979.         ON SELECT 
  980.         { 
  981.          "@32,340 Say 'start chess' to play chess, "
  982.          "'start checkers' to play checkers, " +
  983.          "'clear' to clear the board" + 
  984.          ROOMMSG  
  985.         }
  986.         ON OUTCHAT 
  987.         { 
  988.             { 
  989.                 CLEARLOOSEPROPS 
  990.                 "BR" 88 26 ADDLOOSEPROP "BR" 380 26 ADDLOOSEPROP 
  991.                 "BN" 133 26 ADDLOOSEPROP "BN" 338 26 ADDLOOSEPROP 
  992.                 "BB" 172 26 ADDLOOSEPROP "BB" 296 26 ADDLOOSEPROP 
  993.                 "BQ" 212 26 ADDLOOSEPROP "BK" 256 26 ADDLOOSEPROP 
  994.                 "BP" 88 67 ADDLOOSEPROP "BP" 131 67 ADDLOOSEPROP 
  995.                 "BP" 172 67 ADDLOOSEPROP "BP" 214 67 ADDLOOSEPROP 
  996.                 "BP" 259 67 ADDLOOSEPROP "BP" 298 67 ADDLOOSEPROP 
  997.                 "BP" 340 67 ADDLOOSEPROP "BP" 383 67 ADDLOOSEPROP 
  998.                 "WR" 84 312 ADDLOOSEPROP "WR" 380 312 ADDLOOSEPROP 
  999.                 "WN" 127 312 ADDLOOSEPROP "WN" 338 312 ADDLOOSEPROP 
  1000.                 "WB" 172 312 ADDLOOSEPROP "WB" 298 312 ADDLOOSEPROP 
  1001.                 "WQ" 212 312 ADDLOOSEPROP "WK" 256 312 ADDLOOSEPROP 
  1002.                 "WP" 85 270 ADDLOOSEPROP "WP" 129 270 ADDLOOSEPROP 
  1003.                 "WP" 172 270 ADDLOOSEPROP "WP" 214 270 ADDLOOSEPROP 
  1004.                 "WP" 259 270 ADDLOOSEPROP "WP" 298 270 ADDLOOSEPROP 
  1005.                 "WP" 340 270 ADDLOOSEPROP "WP" 383 270 ADDLOOSEPROP 
  1006.             } CHATSTR "start chess" == IF 
  1007.             {
  1008.                 CLEARLOOSEPROPS 
  1009.                 "CheckerR" 88 312 ADDLOOSEPROP "CheckerR" 172 312 ADDLOOSEPROP 
  1010.                 "CheckerR" 256 312 ADDLOOSEPROP "CheckerR" 338 312 ADDLOOSEPROP 
  1011.                 "CheckerR" 133 270 ADDLOOSEPROP "CheckerR" 212 270 ADDLOOSEPROP 
  1012.                 "CheckerR" 296 270 ADDLOOSEPROP "CheckerR" 380 270 ADDLOOSEPROP 
  1013.                 "CheckerR" 88 228 ADDLOOSEPROP "CheckerR" 172 228 ADDLOOSEPROP 
  1014.                 "CheckerR" 256 228 ADDLOOSEPROP "CheckerR" 338 228 ADDLOOSEPROP 
  1015.                 "CheckerB" 133 26 ADDLOOSEPROP "CheckerB" 212 26 ADDLOOSEPROP 
  1016.                 "CheckerB" 296 26 ADDLOOSEPROP "CheckerB" 380 26 ADDLOOSEPROP 
  1017.                 "CheckerB" 88 68 ADDLOOSEPROP "CheckerB" 172 68 ADDLOOSEPROP 
  1018.                 "CheckerB" 256 68 ADDLOOSEPROP "CheckerB" 338 68 ADDLOOSEPROP 
  1019.                 "CheckerB" 133 110 ADDLOOSEPROP "CheckerB" 212 110 ADDLOOSEPROP 
  1020.                 "CheckerB" 296 110 ADDLOOSEPROP "CheckerB" 380 110 ADDLOOSEPROP 
  1021.                 "CheckerRK" 460 68 ADDLOOSEPROP "CheckerBK" 460 270 ADDLOOSEPROP 
  1022.             } CHATSTR "start checkers" == IF 
  1023.             { CLEARLOOSEPROPS } CHATSTR "clear" == IF  
  1024.         }
  1025.         ENDSCRIPT
  1026.         ENDSPOT
  1027.     ENDROOM
  1028.  
  1029.  
  1030. ROOM
  1031.     ID 109
  1032.     LOCKED "M\93T"
  1033.     PRIVATE
  1034.     NOPAINTING
  1035.     NOCYBORGS
  1036.     NAME "Chess Table 2"
  1037.     PICT "ChessBrd.GIF"
  1038.     ARTIST "Damon Williams"
  1039.     PICTURE ID 100 NAME "CHESSHLP.GIF"  ENDPICTURE
  1040.     PICTURE ID 200 NAME "CHESSLCK.GIF"  ENDPICTURE
  1041.     PICTURE ID 201 NAME "CHESSUNL.GIF"  ENDPICTURE
  1042.  
  1043.     DOOR
  1044.         ID 1
  1045.         DEST 105
  1046.         OUTLINE 0,369  512,369  512,384  0,384
  1047.         ENDDOOR
  1048.     DOOR
  1049.         ID 2
  1050.         DEST 105
  1051.         OUTLINE 0,0  512,0  512,22  0,22
  1052.         ENDDOOR
  1053.     DOOR
  1054.         LOCKABLE
  1055.         ID 3
  1056.         DEST 105
  1057.         OUTLINE 0,0  32,0  31,21  0,21
  1058.         ENDSPOT
  1059.     SPOT
  1060.         ID 10
  1061.         DONTMOVEHERE
  1062.         DEST 3
  1063.         OUTLINE 18,31  50,31  50,63  18,63
  1064.         PICTS 201,0,0 200,0,0 ENDPICTS
  1065.         SCRIPT
  1066.         ON SELECT { 
  1067.             { 0 10 SETSPOTSTATE DEST UNLOCK } 
  1068.             { 1 10 SETSPOTSTATE DEST LOCK } DEST ISLOCKED IFELSE  
  1069.         }
  1070.         ON ENTER { DEST ISLOCKED 10 SETSPOTSTATE  }
  1071.         ENDSCRIPT
  1072.         ENDSPOT
  1073.     SPOT
  1074.         ID 20
  1075.         DONTMOVEHERE
  1076.         OUTLINE 16,324  48,324  48,356  16,356
  1077.         PICTS 100,0,0 ENDPICTS
  1078.         SCRIPT
  1079.         ON SELECT 
  1080.         { 
  1081.             "@32,340 Say <<start chess>> to play chess, "
  1082.             "<<start checkers>> to play checkers, " +
  1083.             "<<clear>> to clear the board" + 
  1084.          ROOMMSG  
  1085.         }
  1086.         ON OUTCHAT 
  1087.         { 
  1088.             { 
  1089.                 CLEARLOOSEPROPS 
  1090.                 "BR" 88 26 ADDLOOSEPROP "BR" 380 26 ADDLOOSEPROP 
  1091.                 "BN" 133 26 ADDLOOSEPROP "BN" 338 26 ADDLOOSEPROP 
  1092.                 "BB" 172 26 ADDLOOSEPROP "BB" 296 26 ADDLOOSEPROP 
  1093.                 "BQ" 212 26 ADDLOOSEPROP "BK" 256 26 ADDLOOSEPROP 
  1094.                 "BP" 88 67 ADDLOOSEPROP "BP" 131 67 ADDLOOSEPROP 
  1095.                 "BP" 172 67 ADDLOOSEPROP "BP" 214 67 ADDLOOSEPROP 
  1096.                 "BP" 259 67 ADDLOOSEPROP "BP" 298 67 ADDLOOSEPROP 
  1097.                 "BP" 340 67 ADDLOOSEPROP "BP" 383 67 ADDLOOSEPROP 
  1098.                 "WR" 84 312 ADDLOOSEPROP "WR" 380 312 ADDLOOSEPROP 
  1099.                 "WN" 127 312 ADDLOOSEPROP "WN" 338 312 ADDLOOSEPROP 
  1100.                 "WB" 172 312 ADDLOOSEPROP "WB" 298 312 ADDLOOSEPROP 
  1101.                 "WQ" 212 312 ADDLOOSEPROP "WK" 256 312 ADDLOOSEPROP 
  1102.                 "WP" 85 270 ADDLOOSEPROP "WP" 129 270 ADDLOOSEPROP 
  1103.                 "WP" 172 270 ADDLOOSEPROP "WP" 214 270 ADDLOOSEPROP 
  1104.                 "WP" 259 270 ADDLOOSEPROP "WP" 298 270 ADDLOOSEPROP 
  1105.                 "WP" 340 270 ADDLOOSEPROP "WP" 383 270 ADDLOOSEPROP 
  1106.             } CHATSTR "start chess" == IF 
  1107.             {
  1108.                 CLEARLOOSEPROPS 
  1109.                 "CheckerR" 88 312 ADDLOOSEPROP "CheckerR" 172 312 ADDLOOSEPROP 
  1110.                 "CheckerR" 256 312 ADDLOOSEPROP "CheckerR" 338 312 ADDLOOSEPROP 
  1111.                 "CheckerR" 133 270 ADDLOOSEPROP "CheckerR" 212 270 ADDLOOSEPROP 
  1112.                 "CheckerR" 296 270 ADDLOOSEPROP "CheckerR" 380 270 ADDLOOSEPROP 
  1113.                 "CheckerR" 88 228 ADDLOOSEPROP "CheckerR" 172 228 ADDLOOSEPROP 
  1114.                 "CheckerR" 256 228 ADDLOOSEPROP "CheckerR" 338 228 ADDLOOSEPROP 
  1115.                 "CheckerB" 133 26 ADDLOOSEPROP "CheckerB" 212 26 ADDLOOSEPROP 
  1116.                 "CheckerB" 296 26 ADDLOOSEPROP "CheckerB" 380 26 ADDLOOSEPROP 
  1117.                 "CheckerB" 88 68 ADDLOOSEPROP "CheckerB" 172 68 ADDLOOSEPROP 
  1118.                 "CheckerB" 256 68 ADDLOOSEPROP "CheckerB" 338 68 ADDLOOSEPROP 
  1119.                 "CheckerB" 133 110 ADDLOOSEPROP "CheckerB" 212 110 ADDLOOSEPROP 
  1120.                 "CheckerB" 296 110 ADDLOOSEPROP "CheckerB" 380 110 ADDLOOSEPROP 
  1121.                 "CheckerRK" 460 68 ADDLOOSEPROP "CheckerBK" 460 270 ADDLOOSEPROP 
  1122.             } CHATSTR "start checkers" == IF 
  1123.             { CLEARLOOSEPROPS } CHATSTR "clear" == IF  
  1124.         }
  1125.         ENDSCRIPT
  1126.         ENDSPOT
  1127.     ENDROOM
  1128.  
  1129.  
  1130. ROOM
  1131.     ID 107
  1132.     PRIVATE
  1133.     NOPAINTING
  1134.     NOCYBORGS
  1135.     NAME "Backgammon Table"
  1136.     PICT "BGMN.GIF"
  1137.     ARTIST "Damon Williams"
  1138.     PICTURE ID 101 NAME "Dice1.GIF"  ENDPICTURE
  1139.     PICTURE ID 102 NAME "Dice2.GIF"  ENDPICTURE
  1140.     PICTURE ID 103 NAME "Dice3.GIF"  ENDPICTURE
  1141.     PICTURE ID 104 NAME "Dice4.GIF"  ENDPICTURE
  1142.     PICTURE ID 105 NAME "Dice5.GIF"  ENDPICTURE
  1143.     PICTURE ID 106 NAME "Dice6.GIF"  ENDPICTURE
  1144.  
  1145.     DOOR
  1146.         LOCKABLE
  1147.         ID 1
  1148.         DEST 106
  1149.         OUTLINE 0,360  512,360  512,384  0,384
  1150.         ENDSPOT
  1151.     DOOR
  1152.         LOCKABLE
  1153.         ID 2
  1154.         DEST 106
  1155.         OUTLINE 0,0  512,0  512,17  0,16
  1156.         ENDSPOT
  1157.     SPOT
  1158.         ID 3
  1159.         OUTLINE 8,298  41,298  42,332  8,332
  1160.         SCRIPT
  1161. ON OUTCHAT {
  1162. {
  1163. CLEARLOOSEPROPS
  1164. "Black Tile" 295 89 ADDLOOSEPROP
  1165. "Black Tile" 294 64 ADDLOOSEPROP
  1166. "Black Tile" 294 39 ADDLOOSEPROP
  1167. "Black Tile" 415 195 ADDLOOSEPROP
  1168. "Black Tile" 415 222 ADDLOOSEPROP
  1169. "Black Tile" 415 247 ADDLOOSEPROP
  1170. "Black Tile" 416 272 ADDLOOSEPROP
  1171. "Black Tile" 415 299 ADDLOOSEPROP
  1172. "Black Tile" 206 141 ADDLOOSEPROP
  1173. "Black Tile" 206 115 ADDLOOSEPROP
  1174. "Black Tile" 206 90 ADDLOOSEPROP
  1175. "Black Tile" 206 64 ADDLOOSEPROP
  1176. "Black Tile" 207 38 ADDLOOSEPROP
  1177. "Black Tile" 56 272 ADDLOOSEPROP
  1178. "Black Tile" 55 299 ADDLOOSEPROP
  1179. "Red Tile" 207 198 ADDLOOSEPROP
  1180. "Red Tile" 207 223 ADDLOOSEPROP
  1181. "Red Tile" 207 249 ADDLOOSEPROP
  1182. "Red Tile" 207 275 ADDLOOSEPROP
  1183. "Red Tile" 414 65 ADDLOOSEPROP
  1184. "Red Tile" 414 39 ADDLOOSEPROP
  1185. "Red Tile" 56 67 ADDLOOSEPROP
  1186. "Red Tile" 56 41 ADDLOOSEPROP
  1187. "Red Tile" 415 91 ADDLOOSEPROP
  1188. "Red Tile" 415 116 ADDLOOSEPROP
  1189. "Red Tile" 415 141 ADDLOOSEPROP
  1190. "Red Tile" 293 301 ADDLOOSEPROP
  1191. "Red Tile" 293 275 ADDLOOSEPROP
  1192. "Red Tile" 293 247 ADDLOOSEPROP
  1193. "Red Tile" 207 300 ADDLOOSEPROP
  1194. } CHATSTR "start backgammon" SUBSTR IF
  1195. { CLEARLOOSEPROPS } CHATSTR "clear" == IF
  1196. { 6 RANDOM X =
  1197.  6 RANDOM Y =
  1198.  X 100 SETSPOTSTATE
  1199.  Y 101 SETSPOTSTATE
  1200.  X 1 + X =
  1201.  Y 1 + Y =
  1202.  "@0,10 Dice Roll: " X ITOA + " + " + Y ITOA + ROOMMSG
  1203.  } CHATSTR "dice" == IF
  1204.  }
  1205.         ENDSCRIPT
  1206.         ENDSPOT
  1207.     SPOT
  1208.         ID 100
  1209.         OUTLINE 80,170  80,210  120,210  120,170
  1210.         PICTS 101,0,0 102,0,0 103,0,0 104,0,0 105,0,0 106,0,0 ENDPICTS
  1211.         ENDSPOT
  1212.     SPOT
  1213.         ID 101
  1214.         OUTLINE 130,170  130,210  170,210  170,170
  1215.         PICTS 101,0,0 102,0,0 103,0,0 104,0,0 105,0,0 106,0,0 ENDPICTS
  1216.         ENDSPOT
  1217.     SPOT
  1218.         ID 6
  1219.         DONTMOVEHERE
  1220.         OUTLINE 79,174  176,175  176,215  78,214
  1221.         SCRIPT
  1222. ON SELECT {
  1223.  6 RANDOM X =
  1224.  6 RANDOM Y =
  1225.  X 100 SETSPOTSTATE
  1226.  Y 101 SETSPOTSTATE
  1227.  X 1 + X =
  1228.  Y 1 + Y =
  1229.  "@0,10 Dice Roll: " X ITOA + " + " + Y ITOA + ROOMMSG
  1230. }
  1231.         ENDSCRIPT
  1232.         ENDSPOT
  1233.     ENDROOM
  1234.  
  1235.  
  1236. ROOM
  1237.     ID 206
  1238.     NAME "Grand Central"
  1239.     PICT "GCENTRAL.GIF"
  1240.     ARTIST "Kevin Tudish"
  1241.     DOOR
  1242.         ID 1
  1243.         DEST 200
  1244.         OUTLINE 103,79  299,43  512,193  102,223
  1245.         ENDDOOR
  1246.     DOOR
  1247.         ID 2
  1248.         DEST 207
  1249.         OUTLINE 383,30  487,20  466,235  372,211
  1250.         ENDDOOR
  1251.     ENDROOM
  1252.  
  1253.  
  1254. ROOM
  1255.     ID 151
  1256.     NOPAINTING
  1257.     NAME "Court Room 151"
  1258.     PICT "Court.GIF"
  1259.     ARTIST "Damon/Moyer Williams"
  1260.  
  1261.  
  1262.  
  1263.     DOOR
  1264.         ID 1
  1265.         DEST 150
  1266.         OUTLINE 115,62  169,67  168,176  118,164
  1267.         ENDDOOR
  1268.     ENDROOM
  1269.  
  1270.  
  1271. ROOM
  1272.     ID 207
  1273.     PRIVATE
  1274.     NOPAINTING
  1275.     NAME "The Lounge"
  1276.     PICT "Lounge.GIF"
  1277.     ARTIST "Elaine Alderette"
  1278.     DOOR
  1279.         ID 1
  1280.         DEST 200
  1281.         OUTLINE 356,143  445,142  445,194  355,195
  1282.         ENDDOOR
  1283.     DOOR
  1284.         ID 2
  1285.         DEST 206
  1286.         OUTLINE 128,96  159,110  167,264  133,269
  1287.         ENDDOOR
  1288.     SPOT
  1289.         ID 3
  1290.         OUTLINE 199,42  253,42  249,83  209,81
  1291.         SCRIPT
  1292. ON SELECT
  1293. {
  1294.      lev1 GLOBAL
  1295.     { 0 lev1 = }
  1296.     { 50 lev1 = } lev1 IFELSE
  1297.      lev1 DIMROOM
  1298. }
  1299.         ENDSCRIPT
  1300.         ENDSPOT
  1301.     DOOR
  1302.         ID 4
  1303.         DEST 87
  1304.         OUTLINE 225,227  249,229  248,249  229,248
  1305.         SCRIPT
  1306. ON SELECT {
  1307.  "wet1" SOUND
  1308.  DEST GOTOROOM
  1309. }
  1310.         ENDSCRIPT
  1311.         ENDDOOR
  1312.     ENDROOM
  1313.  
  1314.  
  1315. ROOM
  1316.     ID 87
  1317.     NAME "The Void"
  1318.     PICT "Spiral.GIF"
  1319.     ARTIST "Jim Bumgardner"
  1320.     DOOR
  1321.         ID 1
  1322.         DEST 207
  1323.         OUTLINE 0,0  507,2  509,36  0,34
  1324.         ENDDOOR
  1325.     SPOT
  1326.         ID 2
  1327.         DONTMOVEHERE
  1328.         OUTLINE 2,18  510,20  512,382  1,381
  1329.         SCRIPT
  1330. ON SELECT {
  1331.  POSX 256 + 2 / POSX + 2 / POSY 182 + 2 / POSY + 2 / SETPOS
  1332.  
  1333. }
  1334.         ENDSCRIPT
  1335.         ENDSPOT
  1336.     DOOR
  1337.         ID 3
  1338.         DEST 777
  1339.         OUTLINE 231,168  281,172  281,214  229,210
  1340.         SCRIPT
  1341. ON ENTER {
  1342.  "@256,182 Abandon Hope all ye who enter here" SAY
  1343.  60 ME SETALARM
  1344.  X GLOBAL
  1345.  0 X =
  1346. }
  1347.  
  1348. ON ALARM {
  1349.  X GLOBAL
  1350.     { DEST GOTOROOM 1 X = } ME INSPOT X NOT AND IF
  1351.   60 ME SETALARM
  1352. }
  1353.         ENDSCRIPT
  1354.         ENDDOOR
  1355.     ENDROOM
  1356.  
  1357.  
  1358. ROOM
  1359.     ID 152
  1360.     NAME "Web Test Room"
  1361.     PICT "Clouds.GIF"
  1362.     ARTIST "Jim Bumgardner"
  1363.     SPOT
  1364.         ID 1
  1365.         NAME "Messier Objects OK?"
  1366.         DONTMOVEHERE
  1367.         SHOWNAME
  1368.         DEST 106
  1369.         OUTLINE 203,45  334,43  294,105  192,87
  1370.         SCRIPT
  1371. ON SELECT {
  1372. "http://seds.lpl.arizona.edu/messier/objects.html"
  1373. NETGOTO
  1374. }
  1375.         ENDSCRIPT
  1376.         ENDSPOT
  1377.     SPOT
  1378.         ID 2
  1379.         NAME "Yahoo!!"
  1380.         DONTMOVEHERE
  1381.         SHOWNAME
  1382.         OUTLINE 54,20  151,7  148,70  44,67
  1383.         SCRIPT
  1384. ON SELECT {
  1385.   "http://www.yahoo.com/" NETGOTO
  1386.  
  1387. }
  1388.         ENDSCRIPT
  1389.         ENDSPOT
  1390.     SPOT
  1391.         ID 3
  1392.         OUTLINE 375,34  492,42  494,99  361,90
  1393.         SCRIPT
  1394. ON SELECT {
  1395.  "Netscape" LAUNCHAPP
  1396. }
  1397.         ENDSCRIPT
  1398.         ENDSPOT
  1399.     ENDROOM
  1400.  
  1401. END
  1402.